home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / SAMPLES / SIMPLE / except.mod < prev    next >
Text File  |  1994-07-22  |  512b  |  26 lines
  1. MODULE except;
  2.  
  3. IMPORT M2EXCEPTION, WholeConv, STextIO, SWholeIO;
  4.  
  5. CONST
  6.   ws = STextIO.WriteString;
  7.   wl = STextIO.WriteLn;
  8.   wi = SWholeIO.WriteInt;
  9.  
  10. PROCEDURE Div(a,b: INTEGER): INTEGER;
  11. BEGIN
  12.   RETURN a DIV b
  13. EXCEPT
  14.   IF M2EXCEPTION.IsM2Exception() THEN
  15.     IF M2EXCEPTION.M2Exception() = M2EXCEPTION.wholeDivException THEN
  16.       ws("*** whole div exception ***"); wl;
  17.       RETURN MAX(INTEGER)
  18.     END;
  19.   END;
  20. END Div;
  21.  
  22. BEGIN
  23.   wi(Div(1,1),0); wl;
  24.   wi(Div(1,0),0); wl;
  25. END except.
  26.